Test_1 <- setRefClass("Test_1",
                      field = list(x.1="numeric", x.2="logical", x.3="matrix"),
                      method = list(initialize =
                                      function(..., x.1 = 10, x.2 = FALSE, x.3 = matrix(0, 0, 0))
                                      {
                                        callSuper(..., x.1 = x.1, x.2 = x.2, x.3 = x.3)
                                      })
)